#!/sw/bin/perl

use Data::Dumper;
use XML::Simple;


my $ref = XMLin( 'login_data.xml' );

for ( $ref->{ server } ) {
  next if  m/NULL/;
  print Dumper( @$_ );
}

#print Dumper( $ref );
